home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 29 / pascal / random.pas < prev    next >
Pascal/Delphi Source File  |  1985-11-19  |  896b  |  38 lines
  1. program TestRandom(input,output);
  2. {This code demonstrates one way to use the xbios call 17 to generate
  3.  random numbers with OSS Personal Pascal    17Apr86 M. Detlefsen}
  4.  
  5. const
  6. {$I gemconst.pas}
  7.  
  8. type
  9. {$I gemtype.pas}
  10.  
  11. var
  12. num,x : integer;
  13. y : real;
  14. {$I gemsubs.pas}
  15.  
  16.  
  17. function Random:integer; {returns an integer between -32768 and +32768}
  18. xbios(17);
  19.  
  20. begin
  21. Clear_Screen;  {this clears the screen}
  22. write('This program generates 100 random numbers between and including ');
  23. writeln('0 and 10.');
  24. writeln;
  25.  
  26. for x:=1 to 100 do
  27.    begin
  28.    num:=random mod 11; {gives integer remainder of division of random by 11}
  29.                        {has to be less than 11, right? i.e., between 0 and 10}
  30.    write(abs(num),' ');
  31.    end;
  32. writeln;
  33. writeln;
  34. writeln('Hit RETURN to exit.');
  35. readln;
  36. end.
  37.  
  38. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə